Amiga Plus 1996 #6/Amiga Plus CD - 1996 - No. 06.iso/multimedia/demos/jongl/install_jongl

Text File | 1996-06-23 | 15.6 KB | 656 lines

; $VER: Install_Jongl V2.0 (23.6.96)
; Script zum Installieren des Jongliersimulationsprogramms Jongl!
; von Martin Hoffmann (erster Versuch)
; und Werner Riebesel (auch erster Versuch)
;
; Bitte nich anschauen, da nich so toll
;
;=============================================================================
;
; ersma n Haufn Texte definieren:
;
;=============================================================================
;
(if (= @language "English")
  (
    (set #Hallo
      (cat "Welcome to the installation of the\n"
           "juggling simulation program\n\n"
           "JONGL\n\n"
           "Only with JONGL you can watch chain saw passing\n"
           "in realtime and 3D\n\n"
           "Written by The Werner and Martin\n\n"
           "By the way: it's the only relevant program in this area."
      )
    )
    (set #Wohin
      (cat "Please enter the place where JONGL should be installed.\n"
           "The directory 'jongl' will be generated there."
      )
    )
    (set #WohinHelp "Choose directory! Hurry up! I make the dir 'jongl' by myself!")
    (set #VersionsWahl "Which version do you want to install?")
    (set #VersionsHelp
      (cat "If you are a lucky owner of an AMIGA with coprocessor "
           "and at least a 68020, then install the appropriate version. "
           "You are rewarded with superb features including "
           "fisheye and vomiting modes and more speed."
      )
    )
    (set #CopyStandard "Copying the main files to ")
    (set #CopyStandardHelp "Why do you press help?")
    (set #ifflib "Now copying 'iff.library' to LIBS:")
    (set #CopyObjects "Please wait, I am copying the objects.")
    (set #CopyPointers
      (cat "Installing pointers:\n\n"
           "With V1.3 noting happens.\n\n"
           "Using V2.0 and higher empty pointers will be copied "
           "to sys:prefs/presets and ENVARC:sys"
      )
    )
    (set #CopyPointer "Copying the pointers")
    (set #V20-21 "Am I right to assume you use V2.0 or V2.1?")
    (set #V30 "You are using V3.0")
    (set #CopyFont1 "Copying 'Jongl.Font'")
    (set #CopyFont2 "Copying 'Jongl.Font' now")
    (set #Zusatz "Do you want to install some of the additional programs?")
    (set #ZusatzHelp
      (cat "These programs are helpful for those jugglers who aren't "
           "afraid of juggling theory. "
           "You can compose and view any site swap patterns."
      )
    )
    (set #CopyZusatz "Which additional programs should be copied?")
    (set #CopyZusatzHelp
      (cat "J2: composes lots of site swap patterns\n\n"
           "J2konv: converts j2 output to jongl input\n\n"
           "freestyle: makes freestyle patterns"
      )
    )
    (set #CopyMuster "Which juggling patterns should be copied?")
    (set #CopyMusterHelp
      (cat "The numbers denote the number of objects in the pattern. "
           "Thats all."
      )
    )
    (set #NixGewaehlt "You should choose at least one!")
    (set #CopyMuster2
      (cat "Now I am copying the selected juggling patterns.\n"
           "It could take quite a long time since there a so many of them."
      )
    )
    (set #1001 "Do you REALLY want to install the patterns with 1001 objects?")
    (set #1001Help "Attention: This could be a gag  -  perhaps I will format the hard drive...")
    (set #1001Narr "You fool. There are no patterns with 1001 objects.")
    (set #Fertich
      (cat "I'm so sorry. The installation is now over.\n"
           "'Jongl' is in the directory 'Jongl' and can be started with 'Jongl'.\n\n"
           "Help is available with 'Jongl info'"
      )
    )
  )
) ; Ende von "english"  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;
(if (= @language "Deutsch")
  (
    (set #Hallo
      (cat "Wilkommen zur Installation des Jongliersimulationsprogramms \n\n"
           "JONGL!\n\n"
           "Dem einzigen Jongliersimulationsprogramm mit Kettensägen und\n"
           "3D Echtzeitdarstellung \n\n"
           "Geschrieben von The Werner und Martin\n\n"
           "Übrigens das einzige relevante Programm in diesem Bereich."
      )
    )
    (set #Wohin
      (cat "Wohin soll das Jongl Programm ?\n"
           "Ein Unterverzeichnis namens Jongl wird automatisch erzeugt"
      )
    )
    (set #WohinHelp
       (cat "Verzeichnis auswählen aber dalli! Das Unterverzeichnis\n"
            "erzeuge aber ich, ist das klar?"
       )
    )
    (set #VersionsWahl "Wasfürne Version soll installiert werden?")
    (set #VersionsHelp
       (cat  "Falls Du in der glücklichen Lage bist, einen "
             "Amiga mit Mathecoprozessor zu haben, dann ist "
             "es empfehlenswert, die 68881 Version zu installieren. "
             "Die braucht aber auch einen 68020 Hauptprozessor. "
             "Dafür gibt es dann auch tolle Features wie Verzerrung, "
             "Kotz-Modus, etc. Falls "
             "nicht, dann nicht."
       )
    )
    (set #CopyStandard "Ich kopiere jetzt alle notwendigen Dateien in ")
    (set #CopyStandardHelp "Das wird so gemacht, wie es dasteht, da gibts nich viel zu rätseln")
    (set #ifflib "Ich kopiere jetzt die 'iff.library' nach LIBS:")
    (set #CopyObjects "Bitte warten, ich kopiere nun die Objekte")
    (set #CopyPointers
      (cat "Nun werden die Pointer installiert\n"
         "Bei Kickstart 1.3 passiert hier nichts.\n"
         "Bei Kickstart 2.0 und höher werden "
         "leere Pointer nach sys:prefs/presets "
         "sowie nach ENVARC:sys kopiert"
      )
    )
    (set #CopyPointer "Kopiere nun den notwendigen Pointer")
    (set #V20-21 "Sie haben OS 2.0 oder 2.1")
    (set #V30 "Sie Haben OS 3.0 oder höher")
    (set #CopyFont1 "Nun wird der Zeichensatz 'Jongl.Font' kopiert")
    (set #CopyFont2 "Kopiere nun den Zeichensatz")
    (set #Zusatz "Sollen auch welche von den Zusatzprogrammen installiert werden?")
    (set #ZusatzHelp
      (cat "Die Zusatzprogramme sind notwendig für den Theoriejongleur, "
           "der auch eigene site-swap Muster erzeugen will."
      )
    )
    (set #CopyZusatz "Welche Zusatzprogramme sollen kopiert werden?")
    (set #CopyZusatzHelp
      (cat "J2: Gibt mögliche site-swap Muster aus \n"
           "j2Konv: Konvertiert J2-Output in Jongl-Input\n"
           "Freestyle: produziert zufällige Muster\n"
;           "V2J: Wandelt Videoscape.bin Dateien in Jongl-Objekte um (Sparversion)"
      )
    )
    (set #CopyMuster "Welche Muster sollen kopiert werden?")
    (set #CopyMusterHelp
      (cat "Die Zahlen geben die Anzahl der Objekte im Muster an. "
           "So einfach ist das."
      )
    )
    (set #NixGewaehlt "Irgendwas solltest Du schon auswählen.")
    (set #CopyMuster2
      (cat "Kopiere nun die ausgewählten Muster\n\n"
           "Das kann etwas dauern, da es eine Menge Muster gibt"
      )
    )
    (set #1001
      (cat "Sollen die Muster mit 1001 Objekten auch wirklich "
           "installiert werden?"
      )
    )
    (set #1001Help
      (cat "Vorsicht, das könnte ein Gag sein - Vielleicht wird ja auch nur "
           "das angegebene Laufwerk formatiert"
      )
    )
    (set #1001Narr "Es gibt keine Muster mit 1001 Objekten Du Narr!")
    (set #Fertich
      (cat "Die Installation ist nun leider vorbei!\n\n"
           "Das Programm liegt im Unterverzeichnis "
           "'Jongl' und kann nun mit 'Jongl' gestartet werden.\n\n "
           "Hilfe gips mit 'Jongl info' "
      )
    )
  )
) ; Ende von "deutsch"
;
;=============================================================================
;
; Begrüßung
;
(message #Hallo)
;
(Welcome)
;
;=============================================================================
;
; wohin soll die Datenflut
;
(set Jongl_dest
   (askdir
      (prompt #Wohin)
      (help #WohinHelp)
      (default @default-dest)
   )
)
(Makedir (tackon jongl_dest "Jongl")
  (infos)
)
(Makedir (tackon jongl_dest "Jongl/m"))
(Makedir (tackon jongl_dest "Jongl/o"))
(set @default-dest (tackon Jongl_dest "Jongl"))
;
;=============================================================================
;
; ask which cpu version to install
;
(set cpuversion
   (askchoice
      (prompt #VersionsWahl)
      (choices "68000 Version" "68020 / 68881 Version")
      (if (< (database "cpu") "68881")
          (default 0)
          (default 1)
      )
      (help #VersionsHelp)
   )
)

;=============================================================================
; copy Jongl
;
(Complete 20)
(Copyfiles
   (Prompt (cat #CopyStandard @jongl_dest))
   (Help #CopyStandardHelp)
   (source "")
   (dest @default-dest)
   (files)
   (infos)
   (Choices "Jongl.info" "List_Of_Objects" "List_Of_People" "List_Of_Sounds" "LOO"
            "Jongl.Guide" "JonglEngl.Guide"
   )
   (NoGauge)
   (Confirm)
)
(Copyfiles
   (if (= @Language "Deutsch")
       (source "Boden")
       (source "Floor")
   )
   (dest @default-dest)
   (files)
   (NoGauge)
)
(Copyfiles
   (source "sounds/")
   (Pattern "#?")
   (Dest (tackon Jongl_dest "Jongl/sounds"))
   (files)
   (NoGauge)
)
;
; Die Dateien LOO und Boden mit Spript-Flags versehen
;
(Protect (Tackon @default-dest "LOO") 64)
(if (= @Language "Deutsch")
  (Protect (Tackon @default-dest "Boden") 64)
  (Protect (Tackon @default-dest "Floor") 64)
)
;
;(Copyfiles
;  (source "JonglStart_inst")
;  (dest @default-dest)
;  (newname "Jonglstart")
;)
(Copyfiles
   (source
      (tackon
      ("")
         (if (= cpuversion 0)
              ("Jongl68000")
              ("Jongl020881")
         )
      )
   )
   (dest @default-dest)
   (Newname "Jongl")
   (NoGauge)
)
(Copyfiles
   (source
     (tackon
       ("")
       (if (= @Language "Deutsch")
         (
           (if (= cpuversion 0)
                ("Jongl.Prefs_D_Blit")
                ("Jongl.Prefs_D_CPU")
           )
         )
         (
           (if (= cpuversion 0)
                ("Jongl.Prefs_E_Blit")
                ("Jongl.Prefs_E_CPU")
           )
         )
       )
     )
   )
   (dest @default-dest)
   (Newname "Jongl.Prefs")
   (NoGauge)
)
;=============================================================================
; iff.library installieren
;
(Complete 35)
(Message #ifflib)
(Copylib
  (source "libs/iff.library")
  (Dest "libs:")
  (nogauge)
)
;=============================================================================
; nun die Objekte Installieren
;
(Complete 40)
(Working #CopyObjects)
(Copyfiles
   (source "O/")
   (Pattern "#?")
   (Dest (tackon Jongl_dest "Jongl/O"))
   (NoGauge)
)
;=============================================================================
; nun die Pointer Installieren (bei 2.0 oder 3.0)
;
(Complete 50)
(Message #CopyPointers)
(Working #CopyPointer)
;
; OS 1.3 (nichts machen)
;
(if (< (/ (getversion) 65536) 37)
    (Complete 55)
;
; OS 2.0 - 2.1
;
 (if (< (/ (getversion) 65536) 39)
  (
   (Debug #V20-21)
   (Copyfiles
    (source "Pointer/LeererPointer2.0")
    (Dest "sys:prefs/presets")
    (newname "LeererPointer")
    (NoGauge)
   )
   (if (= (exists "envarc:sys/Pointer.ILBM") 0)
    (
     (Copyfiles
       (source "Pointer/Pointer.ILBM")
       (Dest "envarc:sys/")
       (NoGauge)
     )
    )
   )
  )
 )
)
;
; OS 3.0 +
;
(if (> (/ (getversion) 65536) 38)
 (
  (Debug #V30)
  (Copyfiles
    (source "Pointer/LeererPointer3.1")
    (Dest "sys:prefs/presets/")
    (newname "LeererPointer")
    (NoGauge)
  )
  (if (= (exists "envarc:sys/Pointer.Prefs") 0)
   (
    (Copyfiles
      (source "Pointer/Pointer.Prefs")
      (Dest "envarc:sys/")
      (NoGauge)
    )
   )
  )
 )
)
;=============================================================================
; nun den Zeichensatz Installieren
;
(Complete 60)
(Message #CopyFont1)
(Working #CopyFont2)
;
;
(Copyfiles
  (source "Fonts/")
  (Choices "Jongl")
  (Dest "Fonts:")
  (Fonts)
  (NoGauge)
)
;=============================================================================
; Soll irgendwas spezielles installiert werden?

(Complete 70)
(if    (askbool
          (prompt #Zusatz)
          (help #ZusatzHelp)
          (default 1)
       )
   (
     (set Zus
       (askoptions
         (prompt #CopyZusatz)
         (help  #CopyZusatzHelp)
         (choices "J2" "J2Konv" "Freestyle" )
         (default 15)
       )
     )
     (if (in Zus 0)
        (Copyfiles
          (source "")
          (Choices "J2.c" "J2" "J2.Guide" "Notation.Guide")
          (Infos)
          (Dest (tackon Jongl_dest "Jongl"))
          (NoGauge)
        )
     )
     (if (in Zus 1)
       (Copyfiles
          (source "")
          (dest (tackon Jongl_dest "Jongl"))
          (Choices "J2Konv" "J2Konv.Guide")
          (NoGauge)
       )
     )
     (if (in Zus 2)
       (Copyfiles
          (source "")
          (dest (tackon Jongl_dest "Jongl"))
          (Choices "Freestyle")
          (NoGauge)
       )
     )
;     (if (in Zus 3)
;       (Copyfiles
;       (source "")
;       (dest @default-dest)
;       (Choices "V2J" )
;       )
;     )
   )
)
;=============================================================================
; nun die Muster Installieren
;
(Complete 80)
(Set Muster 0)
(set @default-dest (tackon Jongl_dest "Jongl/m"))
(While (= Muster 0)
   (set Muster
     (askoptions
         (prompt #CopyMuster)
         (help  #CopyMusterHelp)
         (choices "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15"
                  "16-19" "20-29" ">30" "1001"
         )
         (default 65535)
     )
   )
   (if (= Muster 0)
      (Message #NixGewaehlt)
   )
)
(Working #CopyMuster2)
(if (in Muster 0)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "3#?")
    (NoGauge)
    )
)
(if (in Muster 1)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "4#?")
    (NoGauge)
    )
)
(if (in Muster 2)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "5#?")
    (NoGauge)
    )
)
(if (in Muster 3)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "6#?")
    (NoGauge)
    )
)
(if (in Muster 4)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "7#?")
    (NoGauge)
    )
)
(if (in Muster 5)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "8#?")
    (NoGauge)
    )
)
(if (in Muster 6)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "9#?")
    (NoGauge)
    )
)
(if (in Muster 7)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "10#?")
    (NoGauge)
    )
)
(if (in Muster 8)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "11#?")
    (NoGauge)
    )
)
(if (in Muster 9)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "12#?")
    (NoGauge)
    )
)
(if (in Muster 10)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "13#?")
    (NoGauge)
    )
)
(if (in Muster 11)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "14#?")
    (NoGauge)
    )
)
(if (in Muster 12)
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "15#?")
    (NoGauge)
    )
)
(if (in Muster 13)
  (
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "16#?")
    (NoGauge)
    )
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "17#?")
    (NoGauge)
    )
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "18#?")
    (NoGauge)
    )
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "19#?")
    (NoGauge)
    )
  )
)
(if (in Muster 14)
  (
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "2?_#?")
    (NoGauge)
    )
  )
)
(if (in Muster 15)
  (
    (Copyfiles
    (source "M")
    (dest @default-dest)
    (Pattern "3?_#?")
    (NoGauge)
    )
  )
)
;
(if (in Muster 16)
  (if (askbool
        (prompt #1001)
        (help #1001Help)
        (default 1)
    )
   (Message #1001Narr)
   )
)
;****************************************************************************
;
; Exit
;
(set @default-dest (tackon Jongl_dest "Jongl"))
(run "Avail >NIL: FLUSH")
(complete 100)
(exit #Fertich)